-module (qsort).
-export ([qsort/1]).

qsort([]) -> [];
qsort([Pr|T]) ->
	qsort([Xx||Xx<-T,Xx<Pr])
	++[Pr]++
	qsort([Xx||Xx<-T,Xx>=Pr]).